home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / x68000.arc / SOURCE.ARC / PARSER.DEF < prev    next >
Encoding:
Modula Definition  |  1986-01-22  |  858 b   |  36 lines
  1. DEFINITION MODULE Parser;
  2. (* Reads the Source file, and splits each *)
  3. (* line into Label, OpCode & Operand(s).  *)
  4.  
  5.    FROM FileSystem IMPORT
  6.       File;
  7.  
  8.  
  9.    EXPORT QUALIFIED
  10.       TOKEN, OPERAND, STRING, 
  11.       Line, LineCount, OpLoc, SrcLoc, DestLoc, LineParts;
  12.  
  13.  
  14.    CONST
  15.       TokenSize = 8;
  16.       OperandSize = 20;
  17.  
  18.    TYPE
  19.       TOKEN = ARRAY [0..TokenSize] OF CHAR;
  20.       OPERAND = ARRAY [0..OperandSize] OF CHAR;
  21.       STRING = ARRAY [0..80] OF CHAR;
  22.  
  23.    VAR
  24.       OpLoc, SrcLoc, DestLoc : CARDINAL;
  25.       Line : STRING;
  26.       LineCount : CARDINAL;
  27.  
  28.  
  29.    PROCEDURE LineParts (VAR f : File; VAR EndFile : BOOLEAN; 
  30.                         VAR Label, OpCode : TOKEN; 
  31.                         VAR SrcOp, DestOp : OPERAND);
  32.    (* Reads Line, breaks into tokens, on-passes to symbol & code generators *)
  33.  
  34. END Parser.
  35.  
  36.